22 de maio de 2018

Sumário

  • Objetos Espaciais
  • Banco de Dados Espaciais
  • Pacotes R
  • Mapview
  • Leaflet

Objeto Espacial

Banco de Dados Espacial


Task View Spatial CRAN

Banco de Dados - Estudo

drawing

##                bairro           regional    m2_ap  m2_casa
## 0          agua verde    REGIONAL PORTÃO 6301.942 4607.662
## 1       jardim social    REGIONAL MATRIZ 5630.685 4262.059
## 2               xaxim REGIONAL BOQUEIRÃO 3917.897 3280.043
## 3 jardim das americas    REGIONAL CAJURU 4894.186 3488.253
## 4              guaira    REGIONAL PORTÃO 4562.365 3240.030

Curitiba

## [1] "SpatialPolygonsDataFrame"
## attr(,"package")
## [1] "sp"

Mapview

Default

require(mapview)
mapview(cwb_imovel)

BaseMap

Temático

mapa_ap <- mapview(cwb_imovel, 
        map.types = c("OpenStreetMap.DE"), # Base Map
        zcol = "m2_ap", # Variável
        at = as.integer(breaks_equal$brks), # Fatiamento
        col.regions = RColorBrewer::brewer.pal(n = 5, name = "Oranges"), # Cores
        legend = TRUE,
        layer.name = "Preço do M2", # Nome da Legenda
        alpha.regions = 1, # Opacidade dos Polígonos
        label = cwb_imovel$nome) # Mouse Hover

Temático

Sincronizado

sync(list(mapa_ap, mapa_casa), sync = list(c(1,2)))

Mapa Gráfico

Mapa Gráfico

Mapa Gráfico

m_graf <- mget(rep("graf", length(cwb_imovel))) # replicar o Objeto

m_graf <- lapply(1:length(m_graf), function(i) {
  m_graf[[i]] +
    geom_point(data =  m_graf[[i]]$data[i, ],
                 aes(colour = "red"), size = 2) +
    theme(legend.position="none")
})

mapview(cwb_imovel, 
        zcol = "m2_ap", 
        at = as.integer(breaks_equal$brks),
        col.regions = RColorBrewer::brewer.pal(n = 5, name = "Oranges"),
        legend = TRUE,
        layer.name = "Preço do M2_casa",
        map.types = c("OpenStreetMap.DE"),
        alpha.regions = 1,
        label = cwb_imovel$nome,
        popup = popupGraph(m_graf, type = "svg"))

Popup Imagem

Leaflet

Mapa

Mapa

palet_leaf <- colorBin("Oranges", cwb_imovel$m2_ap, bins = breaks_equal$brks)

popups <- paste0("<strong> Preço M2 : </strong>", 
                round(cwb_imovel$m2_ap, 2),
                "<br> <strong> Bairro : </strong>",
                cwb_imovel$nome)

leaflet_ap <- leaflet(cwb_imovel) %>% 
  addProviderTiles(providers$OpenStreetMap.DE) %>%  # Base Map
  addPolygons(color = "black", # Polígonos
              fillColor = ~palet_leaf(cwb_imovel$m2_ap), # Variável de Interesse
              weight = 1,
              fillOpacity = 1,
              label = ~nome,
              popup = popups,
              group = "M2") %>% # Grupo
  addLegend(pal = palet_leaf, value = ~m2_ap, # Legenda
            opacity = 1, title = "M2 de AP",
            group = "M2")

Search

Search

require(leaflet.extras)
leaflet_ap %>% 
    addResetMapButton() %>% 
  addSearchFeatures(
    targetGroups  = 'M2',
    options = searchFeaturesOptions(zoom = 12, openPopup = TRUE))

Camadas

  • Ver Arquivo mapa_imagem.html

Referências